unit uUnpayedBillsReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, OracleData, frxClass, frxDBSet, frxPreview, Menus,
  frxExportPDF;

type
  TfmUnpayedBillsReport = class(TForm)
    frxReport1: TfrxReport;
    frxPreview1: TfrxPreview;
    frxDBDataset1: TfrxDBDataset;
    odsUnpayedBillsReport: TOracleDataSet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PDF1: TMenuItem;
    N3: TMenuItem;
    frxPDFExport1: TfrxPDFExport;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure PDF1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmUnpayedBillsReport: TfmUnpayedBillsReport;

implementation

uses uMain;

{$R *.dfm}

procedure TfmUnpayedBillsReport.N3Click(Sender: TObject);
begin
  Close;
end;

procedure TfmUnpayedBillsReport.N2Click(Sender: TObject);
begin
  frxReport1.Print;
end;

procedure TfmUnpayedBillsReport.PDF1Click(Sender: TObject);
begin
  frxReport1.Export(frxPDFExport1);
  frxPreview1.RefreshReport;
end;

end.
